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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


;* * 
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2@ * 
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s* w 
;* ONLY N 1 N * 
;* INCLUSION OF THe ABOVE Sgt NOTICE. THIS SOFTWARE OR ANY OTHER * 
;* $ BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
** * 
;* THE go ge THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* © 
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BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: FACILITY: MATH LIBRARY 
S06 

; ABSTRACT: 
: Return nearest integer of a G REAL*8 to a INTEGER®4. 
: VERSION: 1 
> HISTORY: 


; AUTHOR: 
; Steven B. Lionel, 05-Feb-79: Version 1 


; MODIFIED BY: 
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Z ; Edit History for Version 1 of MTHSJIGNNT 


5: 001 - Original. SBL 05-Feb-79 
6 : 1-002 - Use CVTRGL. SBL 21-Aug-1979 
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: INCLUDE FILES: 
: EXTERNAL SYMBOLS: 


MACROS: 


ECL ONS: 
-PSECT THSCODE PIC, SHR, LONG, EXE, NOWRT 


: EQUATED SYMBOLS: 


> OWN STORAGE: 
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- Nearest Integer 16-SEP-1984 01:44: AX/VMS Macro V04-00 P 
ATNSJIENNT © Foturn nearest integer as 1 SasePalone $1:d6:38 LATARTe eae aarnoteuur.mar;1 2° 
¢ -SBTTL MTHSJIGNNT = return nearest integer as INTEGER*4 
344 
$ 3; FUNCTIONAL DESCRIPTION: 
§ ; Returns the nearest integer (rounded away from zero) of a G 
oy ; REAL*8 to a INTEGER*4 as a function value. 
6 3 3; CALLING SEQUENCE: 
0 9% : nearest_int.wl.v = MTHSJIGNNT (arg.rg.r) 
4 95 ; * a 
0 38 3 
000 97 ; INPUT PARAMETERS: 
44 4 arg = 4 : G floating argument 
$00 100 ; IMPLICIT INPUTS: 
000 101; NONE 
000 19 ; 
000 1 3; OUTPUT PARAMETERS: 
0000 104 ; NONE 
000 105; 
000 196 3; IMPLICIT OUTPUTS: 
0000 107 ; NONE 
000 108 ; 
000 109 ; FUNCTION VALUE: 
0000 110; nearest_integer - The integer nearest to arg, rounded 
0000 111; away from zero. 
000 BT : 
000 113 ; SIDE EFFECTS: 
0000 114; Reserved operand, Integer overflow exceptions. 
0000 115; 
0000 116 ;-- 
000 117 
000 118 
000 119 
130 -ENTRY MTHSJIGNNT, “M<IV> 
121 CVTRGL @arg(AP), RO ; RO = rounded arg 
0 1 ¢ RET 
000 1 
620 124 
0008 125 - END 


MTHSJIGNNT - Nearest Integer 1o-$6-1984 1:44: :38 VAX/VMS Ma 0 V04=00 Page 5 
Symbol table -SEP-1984 11:26: MTHRTL SRE SATHJIGNNT. MAR; 1 ree 
ARG = 000000 
ATHSJIGNNT 80000000 RG 01 | 
Quacesessessescent 
! Psect synopsis ! 
ees 
PSECT name Allocation PSECT No. Attributes 
- ABS. si i444 4 ( g.} 9 ( 9.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
MTHSCODE 000000 ( ) 1 ¢ ) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 


Initialization ; 0:00:00.11 00: 0:01. 
omm processing :00:00. :00:03. 

5 and i 1 0 0.51 0:00:03 
Pass 1 6 00:00:00.35 0:00:01. 
pyases table sort 39 3: 0: B89 Hf 0.08 
cess f table output 1 0: 0:00:01 $700; 0.01 
Psect synopsis output 3 0: 333 -0 Sea ee Bt 
Cross-reference output bo: 0: 9-9 8002099 
Assembler run totals 269 0:00:01. 00:00:07.76 


The working 3, Limit was 750 pages. 

1181 bytes { pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space 4 remy to hold 2 non-local and 0 Local symbols. 
125 source he were read in Pass 1, orogee seg * object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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! ; Macro Library statistics ‘ 
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Macro Library | name Macros defined 
-$255$DUA28: CSYSLIBISTARLET. MLB;2 0 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHJIGNNT/OBJ=OBJ$:MTHJIGNNT MSRC$:MTHJIGNNT/UPDATE=(ENHS :MTHJ IGNNT) 
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